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**F [LE®®]1D*®*UNKNOWN 

| ; 
UU UU NN NN KK KK NN NN 000000 WW Ww NN NN . 
UU UU NN KK KK NN NN 000000 WW WW NN NN : 
UU UU NN NN KK KK NN NN OO 00 WW NN NN > 
UU UU NN NN KK KK NN NN 00 00 WW WW NN NN $ 
UU UU NNNN NN KK KK NNNN NN 00 00 WW WW NNNN NN $ 
UU UU WNNNN NN KK K NNNN NN OO 00 WW WW NNNN NN : 
UU UU NN NN NN KKKKKK NN NN NN OO 00 WW WW NN NN NN $ 
UU UU NN NN NN) KKKKKK NN NN NN OO 00 WW WW NN NN NN 3 
UU UU NN NNNN KK KK NN NNNN 00 00 WW WW WwW NN NNNN 3 
UU UU NN NNNN KK KK NN NNNN OO 00 WW Ww WW NN NNNN 3 
UU UU NN NN KK KK NN NN 00 00 WWwWwWw WWWwW NN NN geen $ 
UU UU NN NN KK KK NN NN 00 00 WWWW WwWWWw NN NN naa é 
UUUUUUUUUU  =NN NN KK KK NN NN 000000 Wd WW NN NN ee : 
UUUUUUUUUU  ==NN NN KK KK NN NN 000000 WW WW NN NN son : 
LL IIIIII SSSSSSSS : 
LL III1II SSSSSSSS $ 
LL II SS 3 
LL I] Ss : 
LL I] Ss 
LL II SS 
LL II SSSSSS 
LL I] SSSSSS 
LL II SS 
LL II SS 
LL Il SS 
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71986 92:52:30 DISkSUNSMASTER:LERF-SR 


1 
R ne 


Pa 
CJUNKNOWN.FOR; 1 
SUBROUTINE UNKNOWN (LUN,HEADER) 


SH) : 
O08 C Version: "v04-000" ; 
5 ee ee | : 

a € P 

0007 C* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 3 
sii C* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 8 F 
Bot G ee ALL RIGHTS RESERVED. * 3 
® ° 

0011 C* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * : 
Bot¢ C* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * : 
1 C* INCLUSION OF THE ABOVE COPYRIGH ICE. THIS S$ ARE OR ANY OTHER * 3 
0014 C* COPIES THEREOF NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ® 2 
0015 C* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ; 
Boi8 $s TRANSFERRED. * 3 
Py 

opis C* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ; 
19 C* AND OULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 2 
Bose ke CORPORATION. ® § 
w Py 

OOes C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * $ 
0034 es SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * . 
* Py 

0096 RAE AE ES ORI Gt CE EAN ANC LE PEP PEED A vot : 
C $ 
0039 
0080 C AUTHOR BRIAN PORTER CREATION DATE 26-OCT-1979 2 
003 C++ : 
0038 ; Functional desription: : 
att : This module displays entries that are not known to sye | 3 
0037 : Modified by: 3 
0039s ¢ v03-002 SARO215 Sharon A. Reynolds, 28-Mar-1984 ; 
0040 C pnanped the label output for UCBSL_OWNUIC to 3 
seg : ORBSL_OWNER. : 
bo2$ C v03-001 SARO105 Sharon A. Reynolds, 20-Jun-1983 : 
ng: C Changed the carriage control in the ‘format’ statements : 
Bee : for use with ERF. : 
0049 C v02-003 BP0003 Brian Porter, 02-NOV-1981 | ; 
nk: ; Added device attention support. | : 
0050 C v02-002 BP0002 Brian Porter, 18-AUG-1981 | ; 
sth f Removed unused code. | : 
3g C v02-001 BP0001 Brian Porter, 01-MAY-1981 F 
54 C Added code to allow upper 16 bits of emb$i_dv_numreg to | 3 
55 C be used as a flag word, but not cause integer o'flow in 3 
28 C this module. 3 

5 Cee : 


N15 
Sep 198s 10:54:30 DISKSVMSMASTER: 


IN E ‘SRCS$:MSGHDR.FOR /NOLIST' 
INCLUDE ‘SRC$:DEVERR.FOR /NOLIST' 
IN RC$:VOLMOUNT.FOR /NOLIST' 


2338 
PSsESe 


0285 
0 8 BYTE LUN 
0589 
8 3 BYTE GROUP 
0 3§ BYTE MEMBER 
029 
0294 INTEGER®4 I 
8 3 INTEGER*4 FIELD 
0597 
8 ss INTEGER®4 COMPRESS4 
0300 INTEGER®4 EMBSL_HD_TIME(0:1) 
Banh EQUIVALENCE (EMBSO_HD_TIME,EMBSL_HD_TIME(O)) 
$308 INTEGER®4 DDBSL_NAME (0:3) 
Bape EQUIVALENCE (EMB (62) , DDBSL_NAME) 
Bape LOGICAL *®4 SYSSFAO 
Bee EXTERNAL SYSSFAO 
3e19 CHARACTER*3 FAO_CONTROL1 
O36 CHARACTER*(*) HEADER 
O38 CHARACTER*16 = DEVICE_NAME 
0316 CHARACTER*16 DDBST_NAME 
$4 EQUIVALENCE (EMB (62) ,DDBST_NAME) 
sah DATA FAO_CONTROL1 /'tAR'/ 
0320 
a 
a ENTRY UNKNOWN? (LUN) 
3 CALL LINCHK (LUN,3) 
WRITE(LUN,2) 
31 2 FORMAT(/* *,*ERROR LOG RECORD',/) 
338 CALL LINCHK (LUN,2) 
33 WRITE(LUN,5) EMBSL_HD_SID 
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16-Sep-1984 00:29: 
b-Se0-19 4 90:32:25 
FORMAT(' ',T8,ERFSL_SID',124,78.8,/,140,'SYSTEM ID REGISTER’) 
CALL LINCHK (LUN,2) 


WRITE(LUN,10) EMBSW_HD ENTRY 
FORMAT(’ °,T8,ERLSQ_ENTRY',128,24.4,/,140,'ERROR ENTRY TYPE") 


CALL LINCHK (LUN,2) 


WRITE(LUN, 15) EMBSL_HD TIME (0) ,EMBSL HD _TIME (1) 
FORMAT(' °,78,ExESGQ SYSTIME'.124,28.8,/,124,28.8,140, 
1 '64 BIT TIME WHEN ERROR LOGGED’) 


CALL LINCHK (LUN,2) 
FIELD = LIBSEXTZ2V(0,16,EMB$W_HD_ERRSEQ) 
WRITE(LUN,20) EMBSW HD ERRSEQ,FIELD 
ORMAT(' '§, TB, "ERLSGL_SEQUENCE',128,24.4,/,140, 
1 "UNIQUE ERROR SEQUENCE = ', 1<COMPRESS4 (FIELD)>,".") 


RETURN 
ENTRY UNKNOWN2 (LUN) 


CALL LINCHK (LUN,2) 

FIELD = LIBSEXTZV(0,8,EMB$B_DV_ERTCNT) 

WRITE(LUN,25) EMBSB_DV ERTCNT FIELD 

FORMAT(' °,78,UCBSB_ERTCNT',130,22.2,/ 

1 T40,"REMAINING RETRIES = '.I<COMPRESS4 (FIELD)>,".") 
CALL LINCHK (LUN,2) 

FIELD = LIBSEXTZV(0,8,EMBS$B_DV_ERTMAX) 
WRITE(LUN,30) EMBSB_DV ERTMAX, FIELD 
FORMAT(* £,18, 'UCBSB_ERTMAX' 3 12.2 Ki 
1 "MAXIMUM RETRIES =~", 1<COMPRESS4 (FIELD 
CALL LINCHK (LUN,2) 


WRITE(LUN,35) EMBSL DV 10SB1,EMBSL_DV_I 
FORMAT(’ °, 18, IRP$O_I10SB°,124,28.8,/71 


CALL LINCHK (LUN,2) 


WRITE(LUN,4O) EMBSW DV STS 
FORMAT(* ',T8,‘UCBSO_STS',128,24.4,/,140, "DEVICE STATUS") 


CALL LINCHK (LUN,2) 


$B2 
4,18.8,140,'FINAL I0SB") 


VAX=11 FORTRAN 
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DISKSVMSMASTER: F ..SRCJUNKNOWN.FOR; 1 
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FIELD = LIBSEXTZV(0,8,EMB$B_DV_CLASS) 

et SS 45) Fess DV CLASS cf TER 


CALL LINCHK (LUN,2) 
FIELD = LIBSEXTZV(0,16,EMB$W_DV_UNIT) 


WRITE (LUN, 75) pneu DV _UNIT BAELD 
75 FORMAT(' °,78,UCBSQ_UNIT' fe 7,740 
1 PHYSICAL UNIT 1 ROMBER : ree cemPResga (FIELD)>,".") 


CALL LINCHK (LUN,2) 


FIELD = LIBSEXTZV(0,16,EMBSW_DV_ERRCNT) 
WRITECL 80) MBSW_DV_ERRCNT,F ELD 
FORMAT ( cent Maint ERRCNT', f2 


80 140, 
1 "UNIT ero’ COUNT = ONT OMPRES SG tfiétbys.".") 


2 93 
94 
95 
0 %6 45 FORMAT(’ §,78, "UCB$B_DEVCLAS 12.2,/,140, 
: 4 1 "DEVICE tags = = '  TEUNDRESSe (FAELD)S,°.°) 
0599 CALL LINCHK (LUN,2) 
0401 FIELD = LIBSEXTZV(0,8,EMB$SB_DV_TYPE) 
bc08 WRITE CLUN, 50) FNBSB DV_TYPE FIELD 
0404 50 FORMAT(* "018, "UCBSB_DEVTYPE ' 2.2,/,140, 
0405 1 "DEVICE fyrPé = aT RPOMPRESSS. trike p)>,°.") 
0407 CALL LINCHK (LUN,2) 
0409 WRITE (LUN, 55) ENBSL DV_ROPID 
0410 55 FORMAT(’ §.78,"IRP$C_PID',T 134,78.8./.140, 
oan) 1 aR f PROCESS ID'S 
oct § CALL LINCHK (LUN,2) 
0415 FIELD = LIBSEXTZV(0,16,EMBSW_DV_BOFF) 
0417 WRITELUN, 60) EMBs DV_BOFF FIELD 
0418 60 FORMAT(' °,18,IRP$Q_BOFF' (128, 24.4,/ 
0419 1 AT ch ByTe ROSE? = ee cmbResga OF LELDD>.*.") 
0421 CALL LINCHK (LUN,2) 
0238 FIELD = LIBSEXTZV(0,16,EMB$W_DV_BCNT) 
0425 WRITE (LUN 165) ENB SW Dy eBcnt FIELD 
0426 65 FORMAT 18,' .128,24.4,/ 
0427 1 RAAT ek Sire nate TT eeOMPRESSE tFleto»>.*.") 
0429 CALL LINCHK (LUN,2) 
0431 WRITECLUN, 70) EMBSL_DV MEDIA 
043¢ 70 FORMAT(" uUCcBSC MEDIA’ 124 .28.8,/,140, 
0433 1 DEVICE “5b ucBs PHYSICAL ADDRESS 
8 
9 
0 
4 
5 
6 
7 
8 
9 
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0450 

O43 CALL LINCHK (LUN,1) 

ea WRITE(LUN,85) (EMBSL_DV OPCNT,J = 1,2) 

0494 85 FORMAT(’ §,T8,"UCBS$L-OPCNT’,104,28.8,/,140, 
04 2 1 "UNIT opelatite COONT = ',1<COMPRESS4 (EMBSL_DV_OPCNT)>,'.") 
a8? CALL LINCHK (LUN,2) 

0459 GROUP = LIBSEXTZV(16,8,EMBS$L_DV_OWNUIC) 

0461 MEMBER = LIBSEXTZV(0,8,EMBSL_DV_OWNUIC) 

pees WRITE (LUN, 90) ENBSL DV gounvic GRO P gene BER 
0464 90 FORMAT (' BSt _00N a0, 
0465 1 "OWNER ufc’: = Pe 203-35". POs. 24. 48,8 

0467 CALL LINCHK (LUN,2) 

0469 WRITE (LUN, 95) EMBSL DV_CHA 

0470 95 FORMAT(* BSC_DEVCH HAR’ ,124,28.8,/,140, 
9471 1 "DEVICE CHARACTERIST ICs” 

0473 CALL LINCHK (LUN,2) 

0475 FIELD = LIBSEXTZV(0,8,EMB$B_DV_SLAVE) 

0477 WRITE (LUN, 190) ,EMBSB_DV_SLAVE FIELD. 

0478 100 T8, "UCBSB-SLAVE' ,1$0,22 

0479 ‘ ONDE VICE SLAVES CONTROLLER £ O ee ombREese” (FIELD)>,".") 
0481 CALL LINCHK (LUN,2) 

048 WRITE (LUN, 105) EMBSH DV _FUNC 


105 FORMAT(' °,18,*IRP WP URC’ MOB, 24.4,/,140, 
1 'Q10 runt teoe CODE”) 


CALL LINCHK (LUN,5) 


CPR Ree eR AAAAEAAAEAAREEARARRARAAAEA AERA AAA TE AERA 


C THE FOLLOWING CODE IS DEDICATED TO VMS DEVELOPMENT WITH WHOSE 
: HELP IT WOULD HAVE BEEN UNNECESSARY. 


FIELD = LIBSEXTZV(0,8,EMBS$B_DV_NAMLNG) 
IF (CFIELD+63) .LT. 77) THEN 

DO 108.1 = (FIELD+63),77 

EMB(I1) = 0 


108 CONTINUE 
ENDIF 


Ceeee reer eee eee eee keeeekkeeeKeeeeeeeeeeeeeeeeeeeeeeeererereeeereeene 
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110 


120 
130 


135 


140 


150 


if (NOT. SYSSFAO(FAO CONTROL1 DEVICE NAME ,2VAL(16), 


%REF (DDBST_NAME))) BEVICE_NAME = 


FORMAT(’ §,18,DDBST_NAME',4( 


NAME 
vAL/") 


SYSSFAO FAILURE' 


WRITE (LUN 119), <ppgat Me EF 6d = 88) SOEYACE, 


DO 130,1 = 0,MIN(432,(iand(EMBSL_DV_NUMREG, 'OOOOf ff f*x)#4)),4 


CALL LINCHK (LUN,2) 
FIELD = 1/4 + 1 
pet SAS 120) FIELD, (EMB(78+1+J) 


' J = 3,0,-1) 
ORMAT(' §,T8,"LONGWORD ',I<COMPRESSG (FIELD)>,'.',124,422.2,/) 


CONT INUE 
RETURN 


entry unknown3 (lun) 


call Linchk (lun,2) 


write(lun,135) emb$w_dv_st 
format(' 


call Linchk (lun,2) 
field = LibSextzv(0,8,emb$b_dv_class) 
write lun, 140) emb$b_dv class, f e 
format(' ',t8,"UCBSB_DEVCLASS 
1 "DEVICE CLASS = ',T<compressé (fie 
call Linchk (lun,2) 


field = LibSextzv(0,8,emb$b_dv_type) 


ite( 145) i 
write(lun,145 ens du type tigtd 32. 


format(' *.t8,"UCB 
1 "DEVICE TYPE = 


call Linchk (lun,2) 
field = LibSextzv(0,16,emb$w_dv_unit) 

write(lun,.15 ) emb$w_dv_unit, field 
ormat(* °,t8,'UCBSW UNTT" 2 

1 "PHYSICAL UNIT NUMBER = ', 


call linchk (lun,2) 


24.4,/, 
<compress 


ield 
t30,22.2 
ld)> 


*,izcompress4 (field)>, 


(tf 


t40 


4 (field)>,*.") 


s 
,t8,"UCBSW_STS',t28,24.4,/,t40, "DEVICE STATUS") 
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1982 9233 3 DISKSVMSMASTER: LER. SRCJUNKNOWN. FOR: 1 ni | 


8268 field = LibSextzv(0,16,emb$w_dv_errcnt) 
056 write(lun,155) emb$w_dv_errcnt Ye}4. 
S367 155 format(' ',t8,"UCBSW W7ERRC NT’ t38,26.6,/,t40, 
0968 1 "UNIT ERROR COUNT = * tecoloraiat “UHetas,'.") 
B28 call Linchk (lun,1) 
Bere write(Lun,160) (emb$l_dv ac? cnt,i = 1,2) 
057 160 format(’ ',t8, UCBSL_OPCNT’ .t24.28.8,/,t40, 
He 1 "UNIT opERATION COUNT “ i<compress4 (emb$l_dv_opcnt)>,'.') 
bee call Linchk (Llun,2) 
B28 group = LibSextzv(16,8,emb$l_dv_ownuic) 
B280 member = LibSextzv(0,8,emb$l_dv_ownuic) 
B286 write(lun,165) emb$l_dv genus a me 
058 165 format(’ ',t8, “OR BS =OWRER' eg t40, 
0584 1 "OWNER UIC = C',03-3,',',03.3,' 
bene call Linchk (Llun,2) 
0588 hae ig abt it —_ _dv_char 
0589 170 format $L-DEVCHAR' ,t24,28.8,/,t40, 
090 1 DEVICE tHARALTERIS STICS") 
0236 call Linchk (Llun,2) 
b29¢ field = LibSextzv(0,8,emb$b_dv_slave) 
0596 write (lun, 175) itt dv_slave,f 
0597 —s«175 format(' ',t8,' SLAVE', £40, oo 2./,t40, 
0998 1 "DEVICE SLAVE. CONTROLLER "ticeaarecsk” (field)>,*.") 
Rony call Linchk (lun,5) 
Bens CRRSSAAAAK HARARE AAAARAARARAAAAEAAAEARAEAE TEAR AAT 
Seoa c the following code is dedicated to vms development with whose 
bene c help it would have been unnecessary. 
C 


ge 


field = LibSextzv(0,8,emb$b_dv_naming) 


3 


CHCHHASSAAAAAAES TAHA AAAARAAE HAKATA AH EAAAAAAAATATAAAAAK eRe eee eee eee 


0610 if ((field+63) .lt. 77) then 
\¢ do 180,i = (field+63),77 
\ emb(i) = 0 

B68 180 continue 

sd endif 

061 

06 


~ 
oOo 
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06 1 if (.not. apts sy controll, ,device name ,%val(16), 

$e ¢ 1 Sref(ddb$t_name))) device name = 'SYSSFAO FAILURE’ 

0624 write(lun, 185) (ddb$l_name(i),i device name 

be 5 185 format(' tt, "DDBST_RAME', 4(t24, 83 35° t40, "7 se f*O 

ge ? do 195,1 = 0,min(432, (1AND(emb$L_dv_numreg, ‘OOOOFFFF'X)#4)),4 

0629 call Linchk (lun,2) 

0630 

be 1 field = i/4 + 1 

0638 write(Lun, 190) field (emb(78+i+j), j = 3,0,-1) 

0654 190 format(' §,t8,"LONGWORD ',i<compress4 (field)>,'.',t24,422.2,/) 

0636 195 continue 

0637 

0638 return 

0639 

0640 end 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 2790 Pig CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 1866 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
; SLOCAL 356 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
EMB 512 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 5524 


ENTRY POINTS 


Address Type Name Address Type Name Address Type Name Address Type Name 
0-00000000 UNKNOWN 0-00000017 UNKNOWN1 0-00000128 UNKNOWN2 0-00000670 UNKNOWN 3 
VARIABLES 
Address Type Name Address Type Name 


2 3E CHAR DDBST_NAME -000 CHAR pevi 
Lei € 0 L*1 


H 16 
16-Sep-19 


& 90:39:30 VAX-11 FORTRAN V3.4-56 Page 
-Sep-1984 14:24:5 DISKSVMSMASTER: CERF .SRCJUNKNOWN.FOR; 1 
poy9 I*4 EMBSL_VM_OWNUIC - 8 3F CHAR EMBST_DV_NAME 
- 32 CHAR EMBST_VM_LABEL - 1f CHAR EMBST_VM_NAME 
- $¢ I*2 EMBSW_DV_BCNT -000 2 I*2 EMBSW_DV_BOFF 
C I*2 EMBSW_DV_ERRCNT -000 8 C I*2 EMBSW_DV_FUNC 
1A I*2 EMBSW_OV_STS - 8 A I*2 EMBSW_DV_UNIT 
mei i rs I*2 EMBSW_HD_ENTRY - 8 E I*2 EMBSW_HD_ERRSEQ 
0 I*2 EMBSW_VM_NUMSET -00 1 I*2 EMBSW_VM_UNIT 
2— I*2 EMBSW_VM_VOLNUM m4 9 CHAR FAO_CONTROL1 
misses ot *4 FIELD -000000 L*1 GROOP 
AP-00000008@ CHAR HEADER -00000018 I*4 | 
$—~ Ronee 0 I*6 J AP-000000048 L*1_ LUN 
- 001 L*l MEMBER 
ARRAYS 
Address Type Name Bytes Dimensions 
3-O000003E 1*4 DDBSL_NAME 18 (0:3) 
3-00000000 L*l EMB 51 (0:511) 
-00000052 I*4 EMBSL_DV_REGSAV 420 (0:104) 
-00000006 I*4 EMBSL_HD_TIME 8 (0:1) 
-00000006 I1*4 EMBS$Q_HD_TIME 8 (2) 
LABELS 
Address’ Label Address’ Label Address Label Address’ Label Address’ Label Address’ Label 
1-0000001C “ 1-00000034 5° e's '4'4 449 10° p's ''4'4 4 33 15° 1-000000D0 s 190000116 5° 
1-0000014D 30° 1-00000186 35° 1-000001B1 40° 1-000001D9 45° 1-00000211 0° 1-0000024 > be 
e's a C44 g 60° 1-000002B3 65° 1-Q00002EE 70° a's 434 48 ek 1-00000568 80° 1-000005A2 85° 
1-000005DF 90° 1-00000415 95° 1-0000044A 100° 1-0000048A 105° ae 108 1-00000487 110° 
1-000004DD 120° ee 130 1-Q00004FF 135° e's 140° 1-Q0000055F 145° 1-00000595 150° 
1-000005D1 155° 1-0000060B 160' 1-00000648 165° 1-0000067E 170° 1-00000683 175° ae 180 
1-000006F3 185° 1-00000719 190° te 195 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name Type Name 
1*4 COMPRESS4 I*4 LIBSEXTZV LINCHK L*4 SYS$FAO 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:UNKNOWN/OBJ=0BJ$:UNKNOWN MSRC$: UNKNOWN 


/SHOW= (NOPREPROCESSOR,NOINCLODE , MAP) 
/F77 /NOG_FLOATING 714 /OPTIMIZE /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


UNKNOWN 


COMPILATION STATISTICS 


un Time 7 9 seconds 
ra Tiee: 2 seconds 
Page Faults: ? 
Dynamic Memory: 


6 pages 


Wi 


ep- 
ep- 


1982 92:32:38 


ee bt FORTRAN Yes 
DISKSVMSMASTER:LER 


4° 
Ps 


-56 
SR 
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